10 REM LABEL MAKER 11 REM ******************************** 12 REM * * 13 REM * THE LABEL MAKER * 14 REM * BY * 15 REM * CHAPLAIN L * 16 REM * * 17 REM ******************************** 20 PRINT"[147]" 30 OPEN4,4 40 PRINT#4, CHR$(27);CHR$(104);CHR$(1); 50 PRINT#4,CHR$(27);CHR$(67);CHR$(6);: REM LAST # SETS LABEL LENGTH 52 PRINT#4, CHR$(27);CHR$(108);CHR$(0);: REM SETS LEFT MARGIN 53 PRINT#4, CHR$(27);CHR$(81);CHR$(16);: REM SETS RIGHT MARGIN 55 PRINT#4, CHR$(27);CHR$(97);CHR$(1); 60 PRINT" TYPE FILE FOLDER LABEL" 70 PRINT" THEN HIT RETURN" 75 PRINT " TYPE Q TO QUIT" 80 PRINT" MAX LINE LENGTH [154] SECOND LINE [146]":REM SETS WHITE SPACES FOR LENGTH OF TITLE 90 PRINT"[145]" 100 INPUT L$ 109 IF L$="Q"THEN STOP 110 IF LEN (L$)>32 THEN 500 115 IF LEN (L$)> 16 THEN 1000 120 PRINT#4,L$ 130 PRINT#4,CHR$(12); 140 PRINT"[147]" 150 GOTO 60 500 PRINT"[147] [150]NAME IS TOO LONG! TRY AGAIN" 510 GOTO 60 1000 FOR N=16 TO 2 STEP-1 1010 IF MID$(L$,N,1)=" " THEN 1100 1020 NEXT 1100 LET L1$=LEFT$(L$,N) 1110 LET L2$=RIGHT$(L$,(LEN (L$)-N)) 1120 PRINT#4,L1$ 1130 PRINT#4,L2$ 1140 PRINT#4,CHR$(12) 1150 GOTO140